home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 24 / Amiga Format AFCD24 (Feb 1998, Issue 108).iso / -seriously_amiga- / shareware / programming / other / kaliosisquantrum / troll / rcs / kqgmtst.s
Text File  |  1998-01-12  |  2KB  |  89 lines
  1. head    0.1;
  2. access;
  3. symbols;
  4. locks; strict;
  5. comment    @# @;
  6.  
  7.  
  8. 0.1
  9. date    97.12.05.14.29.57;    author Troll;    state Exp;
  10. branches;
  11. next    ;
  12.  
  13.  
  14. desc
  15. @Ground Mapper for Kaliosys Quantrum
  16. RCS for GoldED · Initial login date: 12/05/97
  17. @
  18.  
  19.  
  20. 0.1
  21. log
  22. @*** empty log message ***
  23. @
  24. text
  25. @;$Id
  26. ;fs "Includes"
  27.     incdir    "include:"
  28.     include   "Libraries/GadTools_lib.i"
  29.     include   "Libraries/GadTools.i"
  30.     include   "exec/exec_lib.i"
  31.     include   "exec/exec.i"
  32.     include   "exec/memory.i"
  33.     include   "devices/timer.i"
  34.     include   "dos/dos_lib.i"
  35.     include   "dos/dos.i"
  36.     include   "dos/dosextens.i"
  37.     include   "dos/dostags.i"
  38.     include   "intuition/intuition_lib.i"
  39.     include   "intuition/intuition.i"
  40.     include   "intuition/screens.i"
  41.     include   "graphics/graphics_lib.i"
  42.     include   "graphics/rastport.i"
  43.     include   "graphics/rpattr.i"
  44.     include   "graphics/text.i"
  45.     include   "graphics/layers_lib.i"
  46.  
  47. ;fe
  48. ;fs "Equates"
  49. exec_base EQU       4
  50. TRUE      EQU       -1
  51. FALSE     EQU       0
  52.     machine   68020
  53. ;fe
  54. ;fs "Macros"
  55. Call      macro
  56.     IFGT      NARG-1
  57.     Move.l    \2_base,a6
  58.     ENDC
  59.     Jsr       _LVO\1(a6)
  60.     endm
  61.  
  62. OpenLib   macro     ;         OpenLib   name, rev, ?fail->
  63.     Bra       \1_next
  64.     IFND      \1_base
  65. \1_base:  Ds.l      1
  66.     ENDC
  67. \1_name:  Dc.b      "\1.library",0
  68.     Even
  69. \1_next:  Lea       \1_name(pc),a1
  70.     Moveq.l   \2,d0
  71.     Call      OpenLibrary,exec
  72.     Move.l    d0,\1_base
  73.     Beq       \3
  74.     endm
  75.  
  76. CloseLib  macro
  77.     Move.l    \1_base(pc),a1
  78.     Call      CloseLibrary,exec
  79.     endm
  80. ;fe
  81. ;fs "chaine de version"
  82. VERSION:  bra.s     Init
  83.     Dc.b      "$VER: Ground Mapper for Kaliosys Quantrum 0.1 (06/12/97) ©1997, CdBS (Troll)"
  84.     Even
  85. ;fe
  86. ;fs "Code"
  87. ;fe
  88. @
  89.